﻿Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oChild As New BusinessLayer.Child
        oChild.ChildName = "Thomas"
        MessageBox.Show(oChild.ChildName)
    End Sub
End Class
